home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tegl6b.zip / INTROPAK.EXE / lha / DROP.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-05  |  734b  |  36 lines
  1. {-- This program show how an image that is covered can still be }
  2. {-- disposed of without affecting the image overlapping it. }
  3.  
  4. Uses
  5.     TEGLIntr,
  6.     TEGLUnit,
  7.     TEGLMain;
  8.  
  9.  
  10. VAR fs : ImageStkPtr;
  11.  
  12.  
  13. BEGIN
  14.  
  15.   EasyTEGL;
  16.   EasyOut;
  17.  
  18.   PushImage(1,1,100,100);
  19.   ShadowBox(1,1,100,100);
  20.   fs := StackPtr;
  21.  
  22.   PushImage(50,50,150,150);
  23.   ShadowBox(50,50,150,150);
  24.  
  25.   WHILE Mouse_Buttons = 0 DO;
  26.  
  27.   {-- the window manager will restore the covered areas of the screen }
  28.   {-- and in the case of the area that is overlapped the background that }
  29.   {-- has been saved by that frame is updated with the partial contents }
  30.   {-- of the disposed image. }
  31.  
  32.   DropStackImage(fs);        
  33.  
  34.   TeglSupervisor;
  35. END.
  36.